module demo2

    use iso_c_binding
    implicit none
    real(8), pointer :: x2(:)
    type(c_ptr), bind(c, name='y') :: x_in_demo2

    interface
        subroutine init2() bind(c)
        end subroutine init2
    end interface

    interface
        subroutine prt2() bind(c)
        end subroutine prt2
    end interface

end module demo2
